home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cstdio.arc / SRC.ARC / OPEN.A < prev    next >
Text File  |  1985-05-17  |  445b  |  27 lines
  1. ;    open.a - open a file.
  2. ;    (C) Copyright 1984, 1985 Gregory R. Mansfield - All Rights Reserved.
  3. ;    G. R. Mansfield.  84/06/22.
  4. ;    Ver 1.0-5517.
  5.  
  6.  
  7.     include    "include/msdos.ah"
  8.     dseg
  9.     public    errno_
  10.  
  11.     cseg
  12.     public    open_
  13.  
  14.  
  15. ;    int open(s, m)
  16. ;    char *s;
  17.  
  18. open_:    mov    bx,sp
  19.     mov    ax,[bx+4]    ; mode
  20.     mov    dx,[bx+2]    ; path name pointer
  21.     mov    ah,FR_OPF    ; open a file
  22.     int    I_FCN
  23.     jnb    opn1        ; if no error
  24.     mov    errno_,ax
  25.     mov    ax,-1
  26. opn1:    ret
  27.